/*=========================================================================
Elite College as Engines of Upward Mobility: Evidence from Colombia's Ser Pilo Paga
Authors: Juliana Londoño-Vélez, Catherine Rodriguez, Fabio Sánchez
and Luis Esteban Álvarez-Arango

Creation date: June 6th, 2025
--------------------------------------------------------------------------
Figures 1a and 1b
=========================================================================*/
********************************************************************************

use "${data}/data_RD", clear
keep if icfes_per==20142

** SABER 11
twoway 	(hist puntaje_global_s11_final, percent w(5) fc(gray) lcolor(black) lwidth(thin)),ytitle(Percentage) xtitle(SABER 11 test score) graphregion(color(white)) xline(310) text(4.3 400 "SPP eligibility (top 9.3%)") ylab(0(1)5)
graph export "${outcomes}/Fig1A.pdf", replace

** SISBEN
replace sisben_score=100 if sisben_score==.	
twoway 	(hist sisben_score, percent w(5) fc(gray) lcolor(black) lwidth(thin)),ytitle(Percentage) xtitle(SISBEN wealth index) graphregion(color(white)) xline(57.21) xline(56.32) xline(40.75) xlabel(0 20 40 60 80 100 "NA") text(24 32 "Rural areas", size(small)) text(27 48.5 "Other urban areas", size(vsmall)) text(32 70 "14 metropolitan areas", size(small)) ylab(0(10)40)
graph export "${outcomes}/Fig1B.pdf", replace 
